home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Fast User Switching.xpl < prev    next >
Text File  |  2002-01-04  |  2KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Startup/Shutdown\Shutdown\Windows NT/2K/XP\00) Shutdown Menu"
  5. "NAME"="Windows XP Fast User Switching"
  6. "OSVERSION"="0000011"
  7. "VERSION"="1.00"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable Fast User Switching"
  10. "DESCRIPTION 1"="Windows XP has the feature of performing a "Fast User Switch"."
  11. "DESCRIPTION 2"="This allows any user to logon as a different user without login off the current user. This means, Windows keeps all Programs running of the current user and allows another user to login."
  12. "DESCRIPTION 3"="This is good thing if your computer is usually user by differnt persons at the same time."
  13. "DESCRIPTION 4"="For high-secured systems, this option should be turned off."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20. sV_LoginWindow="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType"
  21. sV="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AllowMultipleTSSessions" 'DW
  22.  
  23. Sub Plugin_Initialize 
  24.  'first check if this is possible at all
  25.  i=RegReadValue(sV_LoginWindow)
  26.  if i=0 then 
  27.     Call Disable
  28.     Call MsgWarning("You have currently activate the 'Classic Login Window' which AUTOMATICALLY disables Fast User Switching. To enable Fast User Switching, you need to change the Login Window to the 'Welcome Window' style.")
  29.  else
  30.     i=RegReadValue(sV)
  31.     if i=1 then SetUIElement 1,true
  32.  end if
  33. End Sub
  34.  
  35.  
  36. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  37.  b=GetUIElement(1)
  38.  if b=true then
  39.     Call RegWriteValue(sv,1,2)
  40.  else
  41.     Call RegWriteValue(sv,0,2)
  42.  end if
  43.  
  44.  Call Logoff()
  45. End Sub
  46.  
  47. Sub Plugin_Terminate 
  48. End Sub
  49.